home *** CD-ROM | disk | FTP | other *** search
/ Aminet 50 / Aminet 50 (2002)(GTI - Schatztruhe)[!][Aug 2002].iso / Aminet / dev / lang / nA-Iaiov0.7.lha / Iaio_v0.7ﾟ / Examples / hipposupport.ajo < prev    next >
Text File  |  2002-04-26  |  1KB  |  57 lines
  1. #iaio0.7+
  2. #beha
  3. #hipposupport.ajo
  4.  
  5.  
  6. hipopenport[0] : case[0,0,nohip] : openscreen[0]=320/256/2/l//;
  7. setcol[0,0,0,0,0]:setcol[0,1,0,0,0]:setcol[0,2,0,0,0]:setcol[0,3,0,0,0]
  8.  
  9. setpen[0,0,0,0,0]:rectfill[0,1,1,79,127]
  10. setpen[0,1,0,0,0]:rectfill[0,81,1,159,127]
  11. setpen[0,2,0,0,0]:rectfill[0,161,1,239,127]
  12. setpen[0,3,0,0,0]:rectfill[0,241,1,318,127]
  13.  
  14. setpen[0,3,0,0,0]:rectfill[0,81,129,159,254]
  15. setpen[0,0,0,0,0]:rectfill[0,241,129,318,254]
  16. setpen[0,1,0,0,0]:rectfill[0,161,129,239,254]
  17. setpen[0,2,0,0,0]:rectfill[0,1,129,79,254]
  18.  
  19. set[10,1]
  20. set[11,2]
  21. set[12,3]
  22.  
  23. do
  24. hipget[0,1,2,7,4,5,6]
  25.  
  26. add[9,1]:case[9,4,pow]
  27. add[10,1]:case[10,4,pow2]
  28. add[11,1]:case[11,4,pow3]
  29. add[12,1]:case[12,4,pow4]
  30.  
  31. setcol[0,!9,!7,!7,!7]
  32. setcol[0,!10,!4,0,0]
  33. setcol[0,!11,!5,!5,0]
  34. setcol[0,!12,0,!6,0]
  35.  
  36. delay[1] : onlmb[exit]
  37. loop
  38.  
  39. -pow:
  40. set[9,0]:return
  41. -pow2:
  42. set[10,0]:return
  43. -pow3:
  44. set[11,0]:return
  45. -pow4:
  46. set[12,0]:return
  47.  
  48. -exit:
  49. closescreen[0] : hipcloseport : jump[end]
  50.  
  51. -nohip:
  52. print=No Hippoplayer in memory!
  53. jump[end]
  54.  
  55. -end:
  56. quit
  57.